* disp-table.el (standard-display-european): Doc fix. Make
authorJim Blandy <jimb@redhat.com>
Tue, 25 May 1993 06:21:35 +0000 (06:21 +0000)
committerJim Blandy <jimb@redhat.com>
Tue, 25 May 1993 06:21:35 +0000 (06:21 +0000)
this autoload.  Make it respond to prefix arg like a minor mode.

lisp/disp-table.el

index 83ac5d03b4182f2405dd8dc81ef69585faa30ab7..7add5e3a261a42f7bbfddb8f8c16f38cefdb2ff7 100644 (file)
   (setq glyph-table (vconcat glyph-table (list string)))
   (1- (length glyph-table)))
 
+;;;###autoload
 (defun standard-display-european (arg)
-  "Arrange to display European characters encoded with ISO 8859.
-This means that characters in the range of 160 to 255 display not
-as octal escapes, but as accented characters."
+  "Toggle display of European characters encoded with ISO 8859.
+When enabled, characters in the range of 160 to 255 display not
+as octal escapes, but as accented characters.
+With prefix argument, enable European character display iff arg is positive."
   (interactive "P")
-  (if arg (standard-display-default 160 255)
+  (if (or (< (prefix-numeric-value arg) 0)
+         (and (null arg)
+              (vectorp standard-display-table)
+              (>= (length standard-display-table) 161)
+              (equal (aref standard-display-table 160) [160])))
+      (standard-display-default 160 255)
     (standard-display-8bit 160 255)))
-  
 
 (provide 'disp-table)